Option Explicit

Implements IExpression

' 数值类型可能是 Integer/Long/Double, 在这里不做区分
Private num As Variant

'################################################################
' Init
'################################################################
' @param numStrVal 数字字符串
Public Sub InitByStr(ByRef numStrVal As String)
    num = val(numStrVal)
End Sub

' @param numVal 普通数字(整形，或浮点型)
Public Sub InitByNum(ByRef numVal As Variant)
    num = numVal
End Sub

'################################################################
' Property
'################################################################
Public Property Get Value() As Variant
    Value = num
End Property